psb

/lin {exch it 2 copy lineto stroke newpath moveto} def

/pat {pop gr} def

pse